<% Dvbbs.LoadTemplates("") Dvbbs.Stats = "魔法表情列表" Dvbbs.Head() If Dvbbs.UserID=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr() Dim s,sv s = Request("s") If s = "" Or Not IsNumeric(s) Then s = 0 s = Cint(s) If s <> 0 And s <> 1 Then s = 0 If s = 0 Then sv = "表情" Else sv = "头像" End If %> <% MagicList() Sub MagicList() Dim iMagicFaceType,i,stype,Rs,Sql iMagicFaceType = Split(MagicFaceType,"|") Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString Endpage = 0 MaxRows = 21 Page = Request("Page") If IsNumeric(Page) = 0 or Page="" Then Page=1 Page = Clng(Page) stype = Request("stype") If IsNumeric(stype) = 0 or stype="" Then stype=-2 stype = Clng(stype) %>

<% Dim MagicSetting,ii,iii,svsql iii = 1 If s = 0 Then svsql = ",tMoney,tTicket" Else svsql = ",iMoney,iTicket" End If If stype = -2 Then Sql="Select ID,Title,MagicFace_s,MagicType "&svsql&",MagicSetting From Dv_Plus_Tools_MagicFace Order By ID Desc" ElseIf stype = -1 Then Sql="Select ID,Title,MagicFace_s,MagicType "&svsql&",MagicSetting From Dv_Plus_Tools_MagicFace Where iMoney = 0 Or tMoney = 0 Order By ID Desc" Else Sql="Select ID,Title,MagicFace_s,MagicType "&svsql&",MagicSetting From Dv_Plus_Tools_MagicFace Where MagicType = "&stype&" Order By ID Desc" End If Set Rs = Server.CreateObject ("adodb.recordset") If Cint(Dvbbs.Forum_Setting(92))=1 Then If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase Rs.Open Sql,Plus_Conn,1,1 Else If Not IsObject(Conn) Then ConnectionDatabase Rs.Open Sql,conn,1,1 End If If Not (Rs.Eof And Rs.Bof) Then CountNum = Rs.RecordCount If CountNum Mod MaxRows=0 Then Endpage = CountNum \ MaxRows Else Endpage = CountNum \ MaxRows+1 End If Rs.MoveFirst If Page > Endpage Then Page = Endpage If Page < 1 Then Page = 1 If Page >1 Then Rs.Move (Page-1) * MaxRows End if SQL=Rs.GetRows(MaxRows) For i=0 To Ubound(SQL,2) MagicSetting = Split(SQL(6,i),"|") If ii = 0 Then Response.Write "" Response.Write "" If ii = 6 Then Response.Write "" ii = ii + 1 If ii = 7 Then ii = 0 iii = iii + 1 End If Next End If Rs.Close Set Rs=Nothing Select Case ii Case 1 Response.Write "" Case 2 Response.Write "" Case 3 Response.Write "" Case 4 Response.Write "" Case 5 Response.Write "" Case 6 Response.Write "" End Select Select Case iii Case 1 Response.Write "" Response.Write "" Case 2 Response.Write "" End Select %>

魔法<%=sv%>：全部 | 免费 | <% For i = 0 To Ubound(iMagicFaceType) If i <> Ubound(iMagicFaceType) Then Response.Write ""&iMagicFaceType(i)&" | " Else Response.Write ""&iMagicFaceType(i)&"" End If Next %> | 点券

您目前有 <%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text%> 个金币和 <%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text%> 张点券

" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "

Response.Write "

" Response.Write "" 'Response.Write "

" Response.Write "

" Response.Write ""&SQL(4,i)&" / "&SQL(5,i)&"

" Response.Write "" Response.Write "

<% If stype = -2 Then Response.Write "全部" If stype = -1 Then Response.Write "免费" For i = 0 To Ubound(iMagicFaceType) If i = stype Then Response.Write iMagicFaceType(i) Exit For End If Next %>

点击选中右键预览

<% If Page = 1 Then If Endpage > 1 Then Response.Write "下页" Else If Endpage = Page Then Response.Write "上页" Else Response.Write "上页 " Response.Write "下页" End If End If %>

<%=Page%>/<%=Endpage%>

页

<% End Sub %>